#!/usr/bin/perl
#
#

my $device_file = "/sys/dev/char/10:142/device/bus/devices/twl4030_vibra/pulse";

print "Tryint to open file".$device_file;

open(FILE, ">", $device_file);
print FILE "128 1000\n";
close(FILE);

